home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woca viii 90 xmas.d64 / christmasroot (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  1KB  |  35 lines
  1. 0 REM
  2. 1 REM   COMMODORE 64 CHRISTMAS ALBUM
  3. 2 REM
  4. 3 REM
  5. 4 REM            MUSIC: WAYNE EASTWOOD
  6. 5 REM  SPRITES/SCREENS: H. REX BOUCHER
  7. 6 REM      DESIGN/PROG: STEPHEN MURRI
  8. 7 REM
  9. 8 REM
  10. 9 REM
  11. 11 POKE53280,0:POKE53281,0:PRINT""
  12. 12 PRINT"[147]THE COMMODORE 64"
  13. 13 PRINT"PRESS ANY KEY TO START"
  14. 15 GETI$:IFI$=""THEN15
  15. 20 GATE=22632:S1=GATE+16:S2=GATE+6*16+14:I$="":MARK=GATE+3:POKE54296,0
  16. 400 SYS50784:REM INTRO
  17. 510 SYS51976:J=094:K=20:A=00*16^3+12*16^2+15*16+15:GOSUB800:REM GOOD CHRISTIAN
  18. 520 SYS52832:J=088:K=25:A=05*16^3+00*16^2+13*16+03:GOSUB800:REM JINGLE BELLS
  19. 530 SYS52288:J=120:K=30:A=04*16^3+08*16^2+12*16+10:GOSUB800:REM SILENT NIGHT
  20. 540 SYS38912:J=035:K=80:A=04*16^3+01*16^2+05*16+07:GOSUB800:REM RUDOLPH
  21. 550 SYS52062:J=129:K=15:A=03*16^3+07*16^2+07*16+15:GOSUB800:REM ANGELS HEARD
  22. 560 SYS52496:J=062:K=40:A=01*16^3+07*16^2+06*16+03:GOSUB800:REM FROSTY
  23. 590 SYS38144:J=112:K=15:A=08*16^3+07*16^2+13*16+00:GOSUB800:REM SALES PITCH
  24. 591 REM PRICE AT 9680 HEX
  25. 599 SYS52118:REM END
  26. 700 IF PEEK(40959)=1THENCLR:GOTO11
  27. 750 CLR:GOTO20
  28. 800 POKE54276,0:POKE54283,0:POKE54290,0:POKE54296,10:FORY=0TO500:NEXT
  29. 805 POKEGATE+13,A-INT(A/256)*256:POKEGATE+14,A/256
  30. 810 GOSUB850:FORY=0TOJ*2:NEXTY:RETURN
  31. 850 POKEGATE,0:POKEGATE+1,0:POKEGATE+2,0
  32. 860 SYS(S1):FORY=1TOJ:NEXT:IFK>0THENSYS(S2):FORY=1TOK:NEXT:SYS51973
  33. 870 IFPEEK(MARK)=0THEN860
  34. 880 RETURN
  35.